#-*-perl-*-
use Test::More qw(no_plan);
use lib '../lib';

use strict;
use warnings;
use_ok('AlienArena::Server::CVar');
my $cvar = AlienArena::Server::CVar->new('boog', '1', 'LATCH');
isa_ok($cvar, 'AlienArena::Server::CVar');
is $cvar->name, 'boog', 'name';
is $cvar->value, 1, 'init value';
ok $cvar->is_latched, 'is latched';
ok !$cvar->is_user, 'is not a user-defined cvar';
$cvar->value(2);
is $cvar->value, 2, 'value setter';

